| TestTreeKeyPress method |
Applies to
TDUnitDialog
Declaration
Procedure TestTreeKeyPress(Sender: TObject; var Key: Char);Implementation
procedure TDUnitDialog.TestTreeKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = ' ') and (TestTree.Selected <> nil) then
begin
SwitchNodeState(TestTree.Selected);
UpdateStatus;
Key := #0
end;
End; |
|
|